home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / pdoxwin / pi0994.zip / LL0994.EXE / ICREATE.C next >
Text File  |  1994-07-12  |  2KB  |  56 lines
  1. #include <windows.h>
  2. #include <string.h>
  3. #include <stdio.h>
  4. #include "idapi.h"
  5.  
  6. #pragma argsused
  7. int _pascal WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine,
  8.             int nCmdShow)
  9. {
  10.     hDBIDb      hDb;      // Database handle
  11.     DBIResult   rslt;
  12.     CRTblDesc   crTblDesc;           // Table Descriptor
  13.     BOOL        bOverwrite = FALSE;  // Overwrite, yes/no flag
  14.  
  15.     FLDDesc fldDesc[] =
  16.     {
  17.         {1, "Field 1", fldZSTRING, 0,         50, 0, 0, 0, 0, 0, 0},
  18.         {2, "Field 2", fldZSTRING, 0,         20, 0, 0, 0, 0, 0, 0},
  19.         {3, "Field 3", fldZSTRING, 0,         10, 0, 0, 0, 0, 0, 0},
  20.         {4, "Field 4", fldBLOB, fldstMEMO,    20, 0, 0, 0, 0, 0, 0},   
  21.         {5, "Field 5", fldBLOB, fldstBINARY,  10, 0, 0, 0, 0, 0, 0},
  22.         {6, "Field 6", fldBLOB, fldstFMTMEMO, 0,  0, 0, 0, 0, 0, 0}
  23.     };
  24.  
  25.     memset(&crTblDesc, 0, sizeof(CRTblDesc)); // Clear the buffer.
  26.  
  27.     rslt = DbiInit(NULL);
  28.     if (rslt != DBIERR_NONE)
  29.        return;
  30.  
  31.     rslt = DbiOpenDatabase(NULL, NULL, dbiREADWRITE, dbiOPENSHARED, NULL, NULL,
  32.             NULL, NULL, &hDb);
  33.  
  34.     if (rslt != DBIERR_NONE)
  35.        return;
  36.  
  37.     /* Create the table */
  38.     strcpy (crTblDesc.szTblName, "TABLE");
  39.     strcpy (crTblDesc.szTblType, szPARADOX);
  40.     crTblDesc.iFldCount = 6;         
  41.     crTblDesc.pfldDesc = fldDesc;
  42.  
  43.     rslt = DbiCreateTable(hDb, bOverwrite, &crTblDesc);
  44.     if (rslt != DBIERR_NONE)
  45.     {
  46.       char buf[32];
  47.       sprintf (buf, "%X", rslt);
  48.       MessageBox (NULL, buf, "Result from DbiCreateTable", MB_OK);
  49.     }
  50.  
  51.     rslt = DbiCloseDatabase(&hDb);
  52.     rslt = DbiExit();
  53.  
  54. }
  55. 
  56.